home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / VINDEX.DIR / 00042_Script_aRefLink < prev    next >
Text File  |  1995-09-06  |  1KB  |  40 lines
  1. property pCast, pSprite , pRange, pFunctionCast
  2.  
  3. on birth me , theCast ,theSprite,theRange,theFunctionCast
  4.   set pCast = theCast
  5.   set pSprite = theSprite
  6.   set pRange = theRange
  7.   set pFunctionCast = theFunctionCast
  8.   return me
  9. end
  10.  
  11. --on clickRefLink me , theOffset
  12. --  set theHOffset = the mouseH
  13. --  set theVOffset = the mouseV
  14. --  --put theHOffset , theVOffset
  15. --  
  16. --  set thisRec = getAt(pHotSpots,1)
  17. --  set rleft = getAt(thisRec,1)
  18. --  set rtop = getAt(thisRec,2)
  19. --  set rright = getAt(thisRec,3)
  20. --  set rbottom = getAt(thisRec,4)
  21. --  if ((theHOffset > rleft and theHOffset < rright ) ┬
  22. --     and (theVOffset > rtop and theVOffset < rbottom ) ) then 
  23. --    put "HIT"
  24. --  else
  25. --    put "MISS",rleft,rtop,rright,rbottom 
  26. --  end if
  27. --end
  28.  
  29. --rect(left, top, right, bottom)
  30. on showRefLinkIcon me , theOffset
  31.   set subFunctionOffset = theOffset/26
  32.   set the castNum of sprite 40 = (pCast + subFunctionOffset)
  33.   set the locH of sprite 40 = 320
  34.   set the locV of sprite 40 = 240
  35. end
  36.  
  37. on clearRefLinkIcon me
  38.   set the locH of sprite 40 = -300
  39.   set the locV of sprite 40 = -200
  40. end